5 IFA=0THENA=1:LOAD"SPRITES*",8,1
10 IFPEEK(49152)+PEEK(49156)<>103THENLOAD"MCODE*",8,1
20 POKE53269,255:POKE53277,0:POKE53271,0:FORI=0TO7:POKE53287+I,4
30 POKE2040+I,192+I:NEXT
35 FORI=0TO7:SYS49155,I,90+I*24,25:NEXT:POKE2,1
50 POKE53280,5:POKE53281,0:SYS49152
60 PRINT"[147][155]   [194][207][210][196][197][210] [211][208][210][201][212][197][211] AND [211][208][210][201][212][197] [204][207][195][193][212][197][210]"
70 PRINT"   [215]RITTEN BY [202].[198]INCH     [211]EPT. 1988"
80 PRINT"[150]     ![204]ET YOUR SPRITES BREAK FREE!"
90 PRINT"[159] [196]IE [193]SSEMBLER-[210]OUTINE ERLAUBT ES [196]IR,"
100 PRINT" [211]PRITES IM OBEREN UND UNTEREN [210]AHMEN"
110 PRINT" DARZUSTELLEN."
120 PRINT" [206]ATUERLICH KANNST [196]U SIE AUCH AUF DEM"
130 PRINT" NORMALEN [211]CREEN PLAZIEREN, OHNE DIE"
140 PRINT" BEI DER [216]-[208]OSITIONIERUNG SONST NOTWEN-"
150 PRINT" DIGEN [208]OKES. - [211]ETZE DIE [214]ARIABLE [154][195][210][159]"
160 PRINT" ZUNAECHST AUF DIE [211]TARTADRESSE DER"
170 PRINT" [210]OUTINE."
180 GOSUB1000
190 PRINT"[147][155]   [194][207][210][196][197][210] [211][208][210][201][212][197][211] AND [211][208][210][201][212][197] [204][207][195][193][212][197][210]"
200 PRINT"   [215]RITTEN BY [202].[198]INCH     [211]EPT. 1988"
210 PRINT"[150]     ![204]ET YOUR SPRITES BREAK FREE!"
220 PRINT"[154] [211][217][211] [195][210] [159]AKTIVIERT DIE [210]OUTINE UND [196]U"
230 PRINT" KANNST [196]EINEN [211]PRITES JETZT JEDE"
240 PRINT" [217]-[203]OORDINATE VON [154]0 [159]BIS  [154]255[159] GEBEN."
250 PRINT" [197]S ERSCHEINT EIN [200]INWEIS, DASS DIE"
260 PRINT" [210]OUTINE AKTIV IST, DEN [196]U ABER MIT"
270 PRINT" [154][208][207][203][197] 2,1[159] ABSCHALTEN KANNST."
280 PRINT" [200]INWEIS: [205]OEGLICH SIND NUR DIE [210]AHMEN"
290 PRINT" [207][194][197][206] UND [213][206][212][197][206] !"
300 GOSUB1000
310 PRINT"[147][155]   [194][207][210][196][197][210] [211][208][210][201][212][197][211] AND [211][208][210][201][212][197] [204][207][195][193][212][197][210]"
320 PRINT"   [215]RITTEN BY [202].[198]INCH     [211]EPT. 1988"
330 PRINT"[150]     ![204]ET YOUR SPRITES BREAK FREE!"
340 PRINT"[154] [211][217][211] [195][210]+3,SN,X,Y  [159] POSITIONIERT [211]PRITE"
350 PRINT" [154]SN[159] AN DIE [211]TELLE, DIE [196]U MIT"
360 PRINT" [154]X[159] UND [154]Y[159] BESTIMMST. - [200]IERDURCH WERDEN"
370 PRINT" AUCH AUTOMATISCH DIE [210]EGISTER-[194]ITS"
380 PRINT" GESETZT BZW. GELOESCHT."
390 PRINT"[154] "CHR$(34)"SN"CHR$(34)"[159] KANN ZWISCHEN 0 UND 7, [154]"CHR$(34);
400 PRINT"X"CHR$(34):PRINT"[159] ZWISCHEN 0 UND 360, UND [154]"CHR$(34)"Y"CHR$(34);
410 PRINT"[159] ZWISCHEN    0 UND 255 BETRAGEN.":GOSUB1000
420 PRINT"[147][155]   [194][207][210][196][197][210] [211][208][210][201][212][197][211] AND [211][208][210][201][212][197] [204][207][195][193][212][197][210]"
430 PRINT"   [215]RITTEN BY [202].[198]INCH     [211]EPT. 1988"
440 PRINT"[150]     ![204]ET YOUR SPRITES BREAK FREE!"
450 PRINT"[159] [211]OLL DIE [210]OUTINE VERSCHOBEN WERDEN ?"
460 PRINT"[154]        [194]ITTE [202] ODER [206] DRUECKEN"
470 GETA$:IFA$="N"THENS=49152:GOTO570
480 IFA$<>"J"THEN470
490 PRINT"[159] [211]TARTADRESSE :";:OPEN1,0:INPUT#1,A$:CLOSE1
500 S=VAL(A$):IF(S<0)OR(S>65535)OR(S>48800ANDS<49511)THENPRINT"[145][145][145]":GOTO490
510 SA=S:PRINT:PRINT"[145][159]        [214]ERLEGE [195]ODE AN[154]"SA
520 FORI=0TO315:POKESA+I,PEEK(49152+I):NEXT
530 FORI=1TO9:READPL,EX:E=SA+EX:EL=E-(256*INT(E/256)):EH=INT(E/256)
540 POKESA+PL,EL:POKESA+PL+1,EH:NEXT
550 DATA1,89,4,27,28,9,42,35,47,9,65,82,83,9,111,124,122,169
560 E=SA+223:POKESA+178,E-(256*INT(E/256)):POKESA+180,INT(E/256)
570 PRINT"[147][155]   [194][207][210][196][197][210] [211][208][210][201][212][197][211] AND [211][208][210][201][212][197] [204][207][195][193][212][197][210]"
580 PRINT"   [215]RITTEN BY [202].[198]INCH     [211]EPT. 1988"
590 PRINT"[150]     ![204]ET YOUR SPRITES BREAK FREE!"
600 PRINT" [215]ICHTIGER [200]INWEIS:"
610 PRINT"[159] [195]ODE LIEGT VON[154]"S"[159]BIS[154]"S+315"[159]INCL."
620 PRINT"[154] [195][210][159] ALSO MIT[154]"S"[157][159] ANGEBEN."
630 PRINT"[159] [210]OUTINE IST INITIALISIERT."
640 PRINT" [218]UM [211]PEICHERN DER [210]OUTINE ERST"
650 PRINT"[154] [210][213][206]/[211][212][207][208][159]  /  [154][210][197][211][212][207][210][197][159] DRUECKEN, DANN:"
660 PRINT"[154] [210][213][206] 5000"
670 A$="[145][210][197][193][196][217]":FORI=1TO6:POKE630+I,ASC(MID$(A$,I,1)):NEXT:POKE637,141:POKE198,7
680 END
1000 GETA$:IFA$<>" "THEN1000
1010 RETURN
5000 X=PEEK(53280)AND15:Y=PEEK(53281)AND15:IFX=14ANDY=6THEN5030
5010 PRINT"BEFORE SAVING CODE, INTERRUPTS MUST BE  DISABLED - RESTORE THE SCREEN"
5020 END
5030 POKE53280,5:POKE53281,0
5040 PRINT"[147][155]   [194][207][210][196][197][210] [211][208][210][201][212][197][211] AND [211][208][210][201][212][197] [204][207][195][193][212][197][210]"
5050 PRINT"   [215]RITTEN BY [202].[198]INCH     [211]EPT. 1988"
5060 PRINT"[150]     ![204]ET YOUR SPRITES BREAK FREE!"
5070 PRINT," [205][193][195][200][201][206][197] [195][207][196][197] [211][193][214][197][210]"
5080 PRINT,"[159] [154][196][146]ISK [159]ODER [154][212][146]APE":DV=8:D$="[196][201][211][203]"
5090 GETA$:IFA$="T"THENDV=1:D$="[212][193][208][197]":GOTO5110
5100 IFA$<>"D"THEN5090
5110 PRINT,"[145]   [159][211]PEICHERE AUF [154]"D$"   "
5120 PRINT"[159] [211]TARTADRESSE EINGEBEN:[154] ";:OPEN1,0:INPUT#1,A$:CLOSE1
5130 A=VAL(A$):IF(A<0ORA>65535)THENPRINT"[145][145][145][145]":GOTO5120
5140 PRINT:S=A:E=S+315:PRINT"[145] [159][211]TARTADRESSE:[154]"S"[157]       "
5150 PRINT"[159] [197]NDADRESSE:  [154]"E:A$="BORD.SPR."+STR$(S)
5160 SYS49468 A$,DV,2,S,E+1
5170 PRINT"[147][154][142]CODE SAVED OK";:POKE53280,14:POKE53281,6:END
0